Online Today 2000 January/Onto0100.iso/pc/Browser/Web-Fix/Web-Fix Installer.exe/Main/WF_Cursors.k

Text File | 1999-09-08 | 575 b | 24 lines

module oWF_CursorList is cCursorList
has
    InitializeRuntime(theRuntime)
    do
        oWF_Main.ArrowCursor := oArrowCursor;
        oWF_Main.ClosedHandCursor := oClosedHandCursor;
        oWF_Main.DontCursor := oDontCursor;
        oWF_Main.FingerCursor := oFingerCursor;
        oWF_Main.OpenHandCursor := oOpenHandCursor;
        oWF_Main.PlusCursor := oPlusCursor;
        oWF_Main.QueryCursor := oQueryCursor;
        oWF_Main.TargetCursor := oTargetCursor;
    end;
with
    URL is "./Cursors.pic";
    Items is [
        oSizeVerticalCursor,
        oSizeHorizontalCursor,
        oSizeTopDownCursor,
        oSizeDownTopCursor,
        oMoveCursor
    ];
end;